Testing output of the coding.

## Read the datasets Refer to **Testing efficiency of coding.Rmd** at chunk
## `get-data-summary-table-2.1`
source(paste0(getwd(), "/function/readfirmDatasets.R"))
years <- seq(2011, 2015)
mbase <- readfirmDatasets(years = years)
dateID <- sort(unique(mbase$datasets$Date))
#'@ pander(head(mbase$datasets)) ## exactly same layout with kable(x)

## example of the dataset from firm A + spbo result in the research paper due
## to the data heavy and overload ,max 5mb while generated 79mb html file,
## here I just simply subset the head section

mbase$datasets %>% datatable(., extensions = "TableTools", options = list(dom = "T<\"clear\">lfrtip", 
    tableTools = list(sSwfPath = copySWF())))

I just simply refer to http://rstudio.github.io/DT/extensions.html and also http://datatables.net/reference/option/dom and casually wrote the code, the outcome is statisfied but the TableTools button Copy, CSV, Excel doesn’t work but only Print. Any solution?

#'@ mbase$datasets %>% datatable(.,extensions=c('ColReorder','ColVis','TableTools'),options=list(dom='CT<'clear'>Rlfrtip',colVis=list(exclude=c(0),activate='mouseover'),tableTools=list(sSwfPath=copySWF()),scrollX=TRUE,scrollCollapse=TRUE))

#'@ #'@ mbase$datasets %>% datatable(.,extensions=c('ColReorder','ColVis','TableTools'),options=list(dom='T|C<'clear'>R|lfrtip',colVis=list(exclude=c(0),activate='mouseover'),tableTools=list(sSwfPath=copySWF()),scrollX=TRUE,scrollCollapse=TRUE))

#'@ mbase$datasets %>% datatable(.,extensions=c('ColReorder','ColVis','TableTools'),options=list(dom='T|C<'clear'>l|Rfrtip',colVis=list(exclude=c(0),activate='mouseover'),tableTools=list(sSwfPath=copySWF()),scrollX=TRUE,scrollCollapse=TRUE))

Thanks lot…

Since the simpleNetwork function only apply to 2 columns dataset, here I split to be 2 graphs.